home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / ALLOCA~1.BAS < prev    next >
BASIC Source File  |  1997-06-14  |  213b  |  11 lines
  1. Attribute VB_Name = "MAllocator"
  2. Option Explicit
  3.  
  4. Private alloc As IVBMalloc
  5.  
  6. Property Get Allocator() As IVBMalloc
  7.     If alloc Is Nothing Then SHGetMalloc alloc
  8.     Set Allocator = alloc
  9. End Property
  10.  
  11.